home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD7501772000.psc / Version 1.0 / About.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-07-07  |  7.6 KB  |  226 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BackColor       =   &H80000005&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "About"
  6.    ClientHeight    =   3750
  7.    ClientLeft      =   2550
  8.    ClientTop       =   2985
  9.    ClientWidth     =   5250
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "About.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   250
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   350
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin VB.CommandButton cmdOK 
  28.       Cancel          =   -1  'True
  29.       Caption         =   "OK"
  30.       Default         =   -1  'True
  31.       Height          =   330
  32.       Left            =   4005
  33.       TabIndex        =   0
  34.       Top             =   3330
  35.       Width           =   1140
  36.    End
  37.    Begin VB.Label lblWeb 
  38.       AutoSize        =   -1  'True
  39.       BackColor       =   &H80000005&
  40.       Caption         =   "support@ariad-software.com"
  41.       BeginProperty Font 
  42.          Name            =   "Tahoma"
  43.          Size            =   8.25
  44.          Charset         =   0
  45.          Weight          =   700
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       ForeColor       =   &H00FF0000&
  51.       Height          =   195
  52.       Index           =   1
  53.       Left            =   945
  54.       MouseIcon       =   "About.frx":1042
  55.       MousePointer    =   99  'Custom
  56.       TabIndex        =   4
  57.       Tag             =   "mailto:support@ariad-software.com?subject=%APP%"
  58.       ToolTipText     =   "Click to send email to Ariad Technical Support"
  59.       Top             =   2835
  60.       Width           =   2475
  61.    End
  62.    Begin VB.Label lblWeb 
  63.       AutoSize        =   -1  'True
  64.       BackColor       =   &H80000005&
  65.       Caption         =   "http://www.ariad-software.com/"
  66.       BeginProperty Font 
  67.          Name            =   "Tahoma"
  68.          Size            =   8.25
  69.          Charset         =   0
  70.          Weight          =   700
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       ForeColor       =   &H00FF0000&
  76.       Height          =   195
  77.       Index           =   0
  78.       Left            =   945
  79.       MouseIcon       =   "About.frx":134C
  80.       MousePointer    =   99  'Custom
  81.       TabIndex        =   3
  82.       Tag             =   "http://www.ariad-software.com/"
  83.       ToolTipText     =   "Click to visit Ariad Software Online on the web"
  84.       Top             =   2610
  85.       Width           =   2790
  86.    End
  87.    Begin VB.Image imgAriad 
  88.       Height          =   480
  89.       Left            =   150
  90.       Picture         =   "About.frx":1656
  91.       Top             =   135
  92.       Width           =   480
  93.    End
  94.    Begin VB.Label lblApp 
  95.       AutoSize        =   -1  'True
  96.       BackColor       =   &H80000005&
  97.       Caption         =   "Application Name and Version"
  98.       BeginProperty Font 
  99.          Name            =   "Arial"
  100.          Size            =   8.25
  101.          Charset         =   0
  102.          Weight          =   700
  103.          Underline       =   0   'False
  104.          Italic          =   0   'False
  105.          Strikethrough   =   0   'False
  106.       EndProperty
  107.       ForeColor       =   &H80000008&
  108.       Height          =   210
  109.       Left            =   945
  110.       TabIndex        =   2
  111.       Top             =   135
  112.       Width           =   2475
  113.    End
  114.    Begin VB.Label lblCopy 
  115.       AutoSize        =   -1  'True
  116.       BackColor       =   &H80000005&
  117.       Caption         =   "Application Comments, Copyright and Trademarks"
  118.       ForeColor       =   &H00000000&
  119.       Height          =   195
  120.       Left            =   945
  121.       TabIndex        =   1
  122.       Top             =   450
  123.       Width           =   4155
  124.       WordWrap        =   -1  'True
  125.    End
  126.    Begin VB.Line lneShad 
  127.       BorderColor     =   &H80000010&
  128.       Index           =   0
  129.       X1              =   0
  130.       X2              =   370
  131.       Y1              =   213
  132.       Y2              =   213
  133.    End
  134.    Begin VB.Line lneHigh 
  135.       BorderColor     =   &H80000014&
  136.       Index           =   0
  137.       X1              =   0
  138.       X2              =   370
  139.       Y1              =   214
  140.       Y2              =   214
  141.    End
  142.    Begin VB.Shape shpAbout 
  143.       BackColor       =   &H8000000F&
  144.       BackStyle       =   1  'Opaque
  145.       BorderStyle     =   0  'Transparent
  146.       Height          =   645
  147.       Index           =   0
  148.       Left            =   0
  149.       Top             =   3195
  150.       Width           =   5550
  151.    End
  152.    Begin VB.Line lneShad 
  153.       BorderColor     =   &H80000010&
  154.       Index           =   1
  155.       X1              =   54
  156.       X2              =   54
  157.       Y1              =   216
  158.       Y2              =   -9
  159.    End
  160.    Begin VB.Shape shpAbout 
  161.       BackColor       =   &H8000000F&
  162.       BackStyle       =   1  'Opaque
  163.       BorderStyle     =   0  'Transparent
  164.       Height          =   3660
  165.       Index           =   1
  166.       Left            =   0
  167.       Top             =   0
  168.       Width           =   825
  169.    End
  170. Attribute VB_Name = "frmAbout"
  171. Attribute VB_GlobalNameSpace = False
  172. Attribute VB_Creatable = False
  173. Attribute VB_PredeclaredId = True
  174. Attribute VB_Exposed = False
  175. Attribute VB_HelpID = 2338
  176. '-----------------------------------------'
  177. '            Ariad Development Components '
  178. '-----------------------------------------'
  179. '                     Simple About Dialog '
  180. '                             Version 1.0 '
  181. '-----------------------------------------'
  182. 'Copyright 
  183.  2000 by Ariad Software. All Rights Reserved.
  184. 'Created        : 23/02/2000
  185. 'Completed      : 23/02/2000
  186. 'Last Updated   :
  187. 'Nice slimline dialog, instead of the new Ariad logo
  188. 'dialog with a massive 365KB bitmap!!! (Thankfully now reduced to 29KB rle!)
  189. Option Explicit
  190. DefInt A-Z
  191. Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
  192. Private Sub cmdOK_Click()
  193. Attribute cmdOK_Click.VB_HelpID = 2341
  194.  Unload Me
  195. End Sub
  196. Private Sub Form_Activate()
  197. Attribute Form_Activate.VB_HelpID = 2444
  198.  Screen.MousePointer = 0
  199. End Sub
  200. Private Sub Form_Load()
  201.  Dim Comment$
  202.  On Error Resume Next
  203.   Set Icon = Nothing
  204.   lblApp = App.Title & " " & App.Major & "." & App.Minor
  205.   If App.Revision Then
  206.    lblApp = lblApp & " (Build " & Format$(App.Revision, "000)")
  207.   End If
  208.   Comment$ = App.Comments
  209.   If Len(Comment$) Then Comment$ = Comment$ & vbCr & vbCr
  210.   lblCopy = Comment$ & App.LegalCopyright & vbCr & vbCr & App.LegalTrademarks
  211.  On Error GoTo 0
  212. End Sub
  213. Private Sub lblWeb_Click(Index As Integer)
  214. Attribute lblWeb_Click.VB_HelpID = 2343
  215.  Dim Ret As Long
  216.  Dim Cmnd$
  217.  On Error Resume Next
  218.   Cmnd$ = lblWeb(Index).Tag
  219.   Cmnd$ = Replace$(Replace$(Cmnd$, "%APP%", lblApp.Caption), " ", "%20")
  220.   Ret = ShellExecute(hWnd, "Open", Cmnd$, "", "", 5)
  221.   If Err Then
  222.    MsgBox Error$ & " (" & Err & ")", vbCritical, "Web Access"
  223.   ElseIf Ret <= 32 Then
  224.    MsgBox "Unable to i2m " (" & ErrsgBox Error$ & " (" & Err & ")92--------im.ata
  225.          Name            =   "Arial"
  226.